﻿Module Catalogos
    Function fDespliegaCatalogos(ByVal aTipoCatalogo As Integer) As String
        TextoConsulta = ""
        TextoConsulta2 = ""


        Select Case aTipoCatalogo
            Case 1 'Departamentos
                ' Titulo de la ventana de acuerdo al catálogo seleccionado
                frmCatalogosP.Text = "Catalogo de Departamentos"
                TextoConsulta = "Select Numero as Codigo, Descripcion as Nombre from Departamentos where Numero<>0"
                TextoConsulta2 = "Select Numero as Codigo, Descripcion as Nombre from DEPARTAMENTOS where Numero<>0 and UPPER(Descripcion)"

            Case 2 ' Puestos
                ' Titulo de la ventana de acuerdo al catálogo seleccionado
                frmCatalogosP.Text = "Catalogo de Puestos"
                TextoConsulta = "Select Numero as Codigo, Descripcion as Nombre from Puestos where Numero<>0"
                TextoConsulta2 = "Select Numero as Codigo, Descripcion as Nombre from Puestos where Numero<>0 and Descripcion"
            Case 3 ' TipoPeriodos
                ' Titulo de la ventana de acuerdo al catálogo seleccionado
                frmCatalogosP.Text = "Catalogo de Periodos"
                TextoConsulta = "Select IdPeriodo as Codigo, Nombre as Nombre from NOM20018 where IdPeriodo<>0"
                TextoConsulta2 = "Select IdPeriodo as Codigo, Nombre as Nombre from NOM20018 where IdPeriodo<>0 and Nombre"
            Case 4 ' Turnos
                ' Titulo de la ventana de acuerdo al catálogo seleccionado
                frmCatalogosP.Text = "Catalogo de Turnos"
                TextoConsulta = "Select Numero as Codigo, Descripcio as Nombre from NOM20017 where Numero<>0"
                TextoConsulta2 = "Select Numero as Codigo, Descripcio as Nombre from NOM20017 where Numero<>0 and Descripcio"
            Case 4 'Empleados
                frmCatalogosP.Text = "Catalogo de Empleados"
                TextoConsulta = "Select Codigo as Codigo, Nombrecom as Nombre from NOM20014 where IDEmpleado<>0"
                TextoConsulta2 = "Select Codigo as Codigo, Nombrecom as Nombre from NOM20014 where IDEmpleado<>0 and Nombrecom"
            Case 5 'Empleados
                frmCatalogosP.Text = "Catalogo de Empleados"
                TextoConsulta = "Select IdEmpleado as Codigo, NombreCompleto as Nombre from Empleados where IDEmpleado<>0"
                TextoConsulta2 = "Select IdEmpleado as Codigo, NombreCompleto as Nombre from Empleados where IDEmpleado<>0 and UPPER(NombreCompleto)"

        End Select

        frmCatalogosP.ShowDialog()
        If frmCatalogosP.DialogResult = Windows.Forms.DialogResult.OK Then
            strResult = frmCatalogosP.Valor
        End If
        Return 0

    End Function
End Module
